home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 1993 April
/
CICA MS Windows - April 1993.iso
/
unzipped
/
programr
/
vbasic
/
vbpxen
/
return.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1991-10-08
|
3KB
|
80 lines
ReturnForm
Return
Form1
Label2
Tape number:
tapenumber
tapetitle
Label1
Customer:
custnumber
custname
ButtonOK
ButtonCancel
&Cancel
custnumber_Change
custnumber_LostFocus
GetCustomerRec
DBKEYED
custnumber
custname
custrec
customer,
tapenumber_Change
tapenumber_LostFocus
GetItemRec%
tapenumbero
tapetitleD
itemrece
itemdesc
caption!
custname_Click
lastnameU
firstname
thename
TheFullName
ButtonCancel_Clickv
checkout7
ButtonOK_Click
itemnumber
there
tapes_out
UpdateCustomerRecT
iNumTapes
Command1_Click
ButtonExit_Click
DB_OKY
apetitle
screen
MousePointer
POINTER_HOURGLASS
POINTER_DEFAULT
Form_Click
@ Form_Load
custnum
UpdateItemRec
inout_code
itemfee
inout)
MB_ICONEXLAMATION
Lest?
MB_ICONEXCLAMATION
MB_ICONINFORMATION
MB_ICONINFORMATIONElse
savecustnum
GetCustRec
custnumber_Click
returnform
getcwd
tapenumber_LostFocus
ButtonCancel_Click
ButtonOK_Click
Get the tape and updatep
Tape not on database
Tape not out
Change tape status to IN and blank custnum
Get the customer again and update as quickly
as possible. Should lock it, but requires more code
Clear the screen for the next return
Form_Load